home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 23
/
AACD 23.iso
/
AACD
/
Resources
/
Programming
/
MailingLists
< prev
next >
Wrap
Text File
|
2000-03-23
|
910b
|
35 lines
/* */
options results
address command
call pragma('D',':')
CDName = pragma('D')
if ~show('P','AWEB.1') then do
Browser = CDName'AACD/Information/Browsers/AWeb3/AWebDemo'
'Assign >NIL: AWeb3: EXISTS'
if RC = 0 then do
'Version >NIL: AWeb3:AWeb-II 3 3'
if RC = 0 then do
Browser = 'AWeb3:AWeb-II'
if ~exists('ENVARC:AWeb3/Amigactive') then do
'Makedir >NIL: ENVARC:AWeb3/Amigactive'
'Makedir >NIL: ENV:AWeb3/Amigactive'
'copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENVARC:AWeb3/Amigactive clone'
'copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENV:AWeb3/Amigactive clone'
end
end
end
'Run >NIL:' Browser 'Welcome.html LOCAL CONFIG Amigactive'
do until RC = 0
'waitforport AWEB.1'
end
end
address AWEB.1
'screentofront'
'wait all'
'open file://localhost/'CDName'AACD/Information/MailingLists/menu.html target title reload'